home *** CD-ROM | disk | FTP | other *** search
- 1000 REM "[197][194][194][211] 64 [195]ONFIG [205]AKER
- 1010 [143] "(null)RITTEN BY VALD (null)ARRY
- 1020 REM "[213]PDATE : 870728
- 1030 :
- 1040 [143] "(null)IST THIS PROGRAM, SETUP
- 1050 REM "CONFIGS AS DESIRED THEN
- 1060 [143] "RUN IT TO WRITE CONFIG FILE.
- 1070 :
- 1080 MT=2:REM MODEM TYPE
- 1090 REM 1 = CBM'S 1650 OR COMPATIBLE
- 1100 REM 2 = CBM'S 1670 (300/1200)
- 1110 REM 3 = RS232 (ADC, CERMETEK)
- 1120 REM 4 = HAYES/HAYES COMPAT/MISC
- 1130 IFMT=1THENRI=0:CA=0:AA=0:OK=32:MS=0
- 1140 IFMT=2THENRI=0:CA=0:AA=1:OK=32:MS=0
- 1150 IFMT=3THENRI=8:CA=16:AA=0:OK=6:MS=32
- 1160 IFMT=4THENRI=0:CA=0:AA=1:OK=6:MS=0
- 1170 :
- 1180 REM RI=RING INDICATOR/EITHER 8/0
- 1190 REM CA=CARRIER DETECT/EITHER 16/0
- 1200 REM AA=AUTO ANSWER/0=AUTO/1=MANUAL
- 1210 REM OK=MODEM PRIMER/TRY 6,32 OR 38
- 1220 REM MS=MODEM SPEED/EITHER 32/0
- 1230 :
- 1240 OS=02:REM OPEN/CLOSED SYSTEM FLAG
- 1250 REM 0 = CLOSED SYSTEM
- 1260 REM 1 = LOOKY LOO:NO POST/EMAIL/FEEDBACK
- 1270 REM 2 = LOOKY LOO 2:FEEDBACK OK
- 1280 REM 'OS' EQUALS NEW USERS LEVEL
- 1290 REM SEE ALSO 'LEVELS'
- 1300 :
- 1310 REM SYSTEM LEVELS - ADD VALUES
- 1320 REM USE EBBS LEVEL CALC TO FIGURE
- 1330 REM LEVELS WHEN IN THE USERFILE EDITOR.
- 1340 REM ENTER '*' TO CALC A LEVEL.
- 1350 REM ENTER '?' TO DISPLAY ACCESS.
- 1360 REM FOLLOWING INFO IS FYI ONLY.
- 1370 :
- 1380 REM 0 - NO ACCESS AT ALL
- 1390 REM 1 - READ ONLY 1:MB1/NO POST/EMAIL
- 1400 REM 2 - READ ONLY 2:MB1/FEEDBACK OK
- 1410 REM 4 - MSG BASE 1
- 1420 REM 8 - MSG BASE 2
- 1430 REM 16 - MSG BASE 3
- 1440 REM 32 - MSG BASE 4
- 1450 REM 64 - MSG BASE 5
- 1460 REM 128 - XFER 1
- 1470 REM 256 - XFER 2
- 1480 REM 512 - XFER 3
- 1490 REM 1024 - XFER 4
- 1500 REM 2048 - XFER 5
- 1510 REM 4096 - 99 LINES/NO POST LIMIT
- 1520 REM 8192 - NO TIME LIMIT
- 1530 REM 16384 - SYSOP ACCESS
- 1540 :
- 1550 XF=0:REM XFER OPEN/CLOSED FLAG
- 1560 REM 0 = XFER OPEN
- 1570 REM 1 = XFER CLOSED
- 1580 :
- 1590 AU=1:REM UPDATE DL FILES FLAG
- 1600 REM 0 = UPDATE DL FILES MANUALLY
- 1610 REM 1 = SYSTEM UPDATES DL FILES
- 1620 :
- 1630 D1=08:REM EMAIL DRIVE
- 1640 :
- 1650 HD(1)=08:REM MSG BASE 1 DRIVE
- 1660 HD(2)=08:REM MSG BASE 2 DRIVE
- 1670 HD(3)=08:REM MSG BASE 3 DRIVE
- 1680 HD(4)=08:REM MSG BASE 4 DRIVE
- 1690 HD(5)=08:REM MSG BASE 5 DRIVE
- 1700 :
- 1710 XD(1)=08:REM XFER SECTION 1 DRIVE
- 1720 XD(2)=08:REM XFER SECTION 2 DRIVE
- 1730 XD(3)=08:REM XFER SECTION 3 DRIVE
- 1740 XD(4)=08:REM XFER SECTION 4 DRIVE
- 1750 XD(5)=08:REM XFER SECTION 5 DRIVE
- 1760 :
- 1770 REM *143 DIR ENTRYS PER DRIVE*
- 1780 :
- 1790 MB%=5:REM # OF ACTIVE MSG BASES
- 1800 :
- 1810 TD=08:REM TEXT FILES DRIVE
- 1820 :
- 1830 MM(1)=40:REM MSG BASE 1 CAPACITY
- 1840 MM(2)=10:REM MSG BASE 2 CAPACITY
- 1850 MM(3)=10:REM MSG BASE 3 CAPACITY
- 1860 MM(4)=10:REM MSG BASE 4 CAPACITY
- 1870 MM(5)=10:REM MSG BASE 5 CAPACITY
- 1880 :
- 1890 PO(1)=3:REM MAX POSTS/MB1
- 1900 PO(2)=2:REM MAX POSTS/MB2
- 1910 PO(3)=2:REM MAX POSTS/MB3
- 1920 PO(4)=2:REM MAX POSTS/MB4
- 1930 PO(5)=2:REM MAX POSTS/MB5
- 1940 :
- 1950 TL%=45:REM ONLINE TIME LIMIT
- 1960 :
- 1970 REM MSG BASE NAMES
- 1980 MB$(1)="[208]UBLIC [196]ISCUSSION"
- 1990 MB$(2)="[195]64/[195]128"
- 2000 MB$(3)="[208]ROGRAMMING"
- 2010 MB$(4)="[198]RIENDS"
- 2020 MB$(5)="[211]YSOPS"
- 2030 :
- 2040 REM SYSOP NAME
- 2050 SY$="[211][217][211][212][197][205] [207][208][197][210][193][212][207][210]"
- 2060 :
- 2070 REM BBS NAME
- 2080 BN$="[197][194][194][211] 64"
- 2090 :
- 2100 REM BBS CITY
- 2110 CI$="[197][194][194][211] [200][197][193][196][209][213][193][210][212][197][210][211]"
- 2120 :
- 2130 REM DL SECTION NAMES
- 2140 DL$(1)="[195]64"
- 2150 DL$(2)="[195]128"
- 2160 DL$(3)="[193][205][201][199][193]"
- 2170 DL$(4)="[195][208]/[205]"
- 2180 DL$(5)="[205][201][211][195]"
- 2190 :
- 2200 PRINT"[147]";:CR$=CHR$(13):POKE53280,6:POKE53281,1
- 2210 PRINT"[154] ";
- 2220 PRINT" [197][194][194][211] 64 [195]ONFIG [198]ILE [205]AKER ";
- 2230 PRINT" ";
- 2240 PRINT" [197][194][194][211] 64 WRITTEN BY [197]D [208]ARRY ";
- 2250 PRINT" "
- 2260 PRINTTAB(8)"(1) [144][200]ELP/[201]NFORMATION"
- 2270 PRINTTAB(8)"(2) [144][215]RITE [195]ONFIG [198]ILE"
- 2280 PRINTTAB(8)"(3) [144][197]DIT [197][194][194][211] [195]ONFIG'S"
- 2290 PRINTTAB(8)"(4) [144][212]EST FOR [205]ODEM [211]ETTINGS[154]":PRINT
- 2300 :
- 2310 GETA$:IFA$=""THEN2310
- 2320 IFA$="1"THEN2530
- 2330 IFA$="2"THEN2370
- 2340 IFA$="3"THENLIST1000-1060:END
- 2350 IFA$="4"THEN2760
- 2360 GOTO2310
- 2370 PRINT" [201][206][211][197][210][212] [211][217][211][212][197][205] [198][201][204][197][211] [196][201][211][203]/[208][210][197][211][211] [210][197][212][213][210][206]"
- 2380 GETA$:IFA$<>CHR$(13)THEN2380
- 2390 PRINT" [215]RITING [197][194][194][211] 64 CONFIG FILE"
- 2400 OPEN1,8,2,"@0:CFG.64,S,W":R$=CHR$(13)
- 2410 PRINT#1,MT:PRINT#1,RI:PRINT#1,CA:PRINT#1,AA:PRINT#1,OK
- 2420 PRINT#1,MS:PRINT#1,OS:PRINT#1,XF:PRINT#1,AU
- 2430 PRINT#1,D1:FORI=1TO5:PRINT#1,XD(I):NEXT
- 2440 FORI=1TO5:PRINT#1,HD(I):NEXT
- 2450 PRINT#1,MB%:PRINT#1,TD
- 2460 FORI=1TO5:PRINT#1,MM(I):NEXT
- 2470 FORI=1TO5:PRINT#1,PO(I):NEXT
- 2480 PRINT#1,TL%
- 2490 FORI=1TO5:PRINT#1,MB$(I):NEXT
- 2500 PRINT#1,SY$CR$BN$CR$CI$
- 2510 FORI=1TO5:PRINT#1,DL$(I):NEXT
- 2520 CLOSE1:PRINT" [197][194][194][211] CONFIG FILE CREATED.":END
- 2530 PRINT"[147] [156][197][194][194][211] [200][197][204][208] - [211]ETTING UP:"
- 2540 PRINT"1 - [210]UN 64 FILEMAKER."
- 2550 PRINT"2 - [204]IST/EDIT/RESAVE/RUN THIS PROGRAM."
- 2560 PRINT"3 - [210]UN [197][194][194][211]/[211]ETUP FILES (OB, ID, ETC)
- 2570 [153]"4 - (null)OOK AROUND. (null)HEN READY, GO (null)(null)(null)RIGHT$(null)VAL!"
- 2580 [153]"5 - (null)END BIG BUCKS/PRECIOUS METALS."
- 2590 [153]"VALPEEKPEEK(null) IS FREEWARE IN COMPILED FORM."
- 2600 [153]"(null)LEASE FEEL FREE TO PASS IT AROUND"
- 2610 [153]"AND/OR MAKE FREEWARE DONATIONS."
- 2620 [153]"VALPEEKPEEK(null) 64 BASIC CODE, ML SOURCE CODE,"
- 2630 [153]"DOC'S & REGISTRATION IS $40."
- 2640 [153]"(null)RDERS (LEN(null)STR$ (null)KAY)/(null)UESTIONS:"
- 2650 [153]"VALD (null)ARRY/VALPEEKPEEK(null)64"
- 2660 [153]"8711 (null)ANGDON (null)T. #8"
- 2670 [153]"(null)EPULVEDA, LENATN 91343"
- 2680 [153]"818-891-9350 - VOICE - 12-6PM"
- 2690 [153]"818-846-8083 - LEN(null)(null)VAL(null)ATN(null)(null) VALPEEKPEEK(null) (#2)":[153]"CHR$VALNIE MAILBOX :VALPEEKPEEK(null)"
- 2700 [153][163]8)"STOP(null)RESS (null)VAL(null)(null)(null)(null) TO CONTINUE";
- 2710 [161]A$:[139]A$[179][177][199](13)[167]2710
- 2720 [138]
- 2730 [159]2,8,2,"CON*,S,R"
- 2740 [161]#2,A$:[153]A$;:[139]ST[178]0[167]2740
- 2750 [160]2
- 2760 [143] TEST FOR MODEM SETTINGS
- 2770 [153]"LOADSTOP ";
- 2780 [153]" (null)LEASE NOTE THAT RIGHT$ CANNOT DETERMINE ";
- 2790 [153]" THE (null)ATN(null)(null) POSSIBLE COMBINATIONS OF ";
- 2800 [153]" (null)(null)232 INTERFACES AND MODEMS. (null)HIS TEST ";
- 2810 [153]" WILL (null)(null)(null)(null) BE AS ACCURATE AS YOUR ";
- 2820 [153]" EQUIPMENT WILL ALLOW. ";
- 2830 [153]" "
- 2840 [153]"CONTRIGHT$NSURE THAT YOUR MODEM AND/OR INTERFACE"
- 2850 [153]"IS PLUGGED IN AND TURNED ON.":[153][166]10)"LEFT$IT (null)VAL(null)(null)(null)(null)CONT WHEN READY"
- 2860 [161]A$:[139]A$[178]""[167]2860
- 2870 [159]1,2,3,[199](6)[170][199](0):[143] SETUP RS232 PORT
- 2880 A[178][194](56577)[175]8:[139]A[178]8[167]A[178]0
- 2890 B[178][194](56577)[175]16:[139]B[178]16[167]B[178]0
- 2900 C[178][194](56577)[175]32:[139]C[178]32[167]C[178]0
- 2910 [153]"(null)RIGHT$ - ((null)RIGHT$(null)CHR$ RIGHT$(null)STR$RIGHT$LENATN(null)(null)(null)) :"A
- 2920 [153]"LENATN - (LENATN(null)(null)RIGHT$VAL(null) STR$VAL(null)VALLEN(null)) :"B
- 2930 [153]"(null)(null) - ((null)(null)STR$VAL(null) (null)(null)VALVALSTR$) :"C
- 2940 [153]"ATNATN = 0 IF LINE 12/PIN MID$ SUPPORTED"
- 2950 [153]"ATNATN = 1 IF LINE 12/PIN MID$ (null)(null)(null) SUPPORTED"
- 2960 [153]"ATNATN DETERMINES CALLERS BAUD RATE."
- 2970 [153]:[153][166]10)"LEFT$IT (null)VAL(null)(null)(null)(null)CONT TO CONTINUE"
- 2980 [161]A$:[139]A$[179][177][199](13)[167]2980
- 2990 [138]
-